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ORIC 1/ATMOS 


LAS VEGAS 


Retrouvez le grand frisson des salles de jeux 
et empochez'la monnaie grâce à votre fidèle ordinateur. ; 
Pour lancer le jeu, 1 
il suffit de presser la barre d'espace. | 





EE 

CLS: FPAFERA: INK 
POHE 615,14 

Peig:PLOT 18,:1,"18" 

IF PEEKLHETAS #30 THEN 35 £ 

FÜR I=1 TO S:REACA:MEXT * 
FOR I=46556 TO 47463:READ A:FOHE LA:HEXT 
Me" VME=CHRSE 32 
ASC 1 CHR +1 ie ASE 2 = CHRSE HET" 
Ac 5 =CHREE 6 Dept: ASE d 1=CHRSE 6 +" 9h" 
ASE 5 =CHRGE 2 nent: Abe 6 1e CHRGE E ue" à 
AE 2=CHR SES +" qe AC ES CHREE Stat" - 
ASE S =CHRSE À Dé on: AGE LA ECHEC 1 +0" 
FOR Izi TO 14: A6 I 12 A6 I HMS: HEXT 

FEM 

FEM DECUVE 

BEM 

FÜR 1=2 TO 18:PLOT 1,5,"c":PLOT 7,Z%5,"d" 

PLOT 1:9:"c":PLOT I,16,"d":MEXT 

FOR Isé TO 24:PLOT 2,71,"a":PLOT 18,1, "E":HEXT 

FLOT 5,74 1:PLOT 15:5:3:PLOT 6:57, "LAS VEGAS" 

PLOT 4,253,24:PLOT 3,23,16:FLOT 14,25,8 

PLOT 5,23, "2AC":FORISI18 TO 21:PLOT 6,1, "3":HEXT 

PLOT 1,1: 7:PLOT 1:53: 4'PLOT Z3:1,3:PLOT 23,3,3 

FLOT £.1,"PIECES DE £gC:":FPLOT £,3,"GAIH:" 

ES=CHRSE 255 à 

FOR I=14 TO 15:PLOT F,1,2%$:PLOT 12,1,2#:FLOT S,7,3:PLOTIG I. 

5 PLOT 15: I, SHEAT 

PLOT 19,18, "cca":PLOT 19,19,"dda" 

FOR Is13 TO 17:PLOT 21:1:"a":MNEXT 

PLOT 19,18.1:PLOT &2,12,3:PLOT 2@,12,;"4z" 

PLOT 11.88, "cc": PLOT 11,1r,"cccc":PLOT 11,81.'"dddd" 

FORI=18 TO 2@:PLOT 11,:1:"a &":MEXT 

FOR Ie=@ TO £S:PLOT £g,1,"b":PLOT 38,1,"a":MEXT. 

FOR Is TO 24 STEF © 

PLOT 285,1: "ddddddddddddd" :MEXT 

PLOT 29,25, "cccecceccececce” 

FLOT 26,2,"ijiiii 3354":FLOT 26,3,"E1KIK1L #16" 
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SA2A DATA 65 
Sadg LCATA EË 
SH CHTA € 
SAS DATA 4 
4 CATA 5 
3956 CAT 
sl 





FLOT Eé:ri"efefef San" :PLIT 26, AGE) 2rad4" 

FLOT LE, “one © G":PLÔT 26.13": mn *4z 
PLOT 36,17, "qrqrar G":PLOT 26,18": 
PLOT 26.28, “rom 2218" :PLOT 6: 23. oFopol 
FOR I=2 TO SE STEF 






pu] 


EEAD A:FLOT 85,1, 4:FLOT ES #1. A:PLOT 35,1,8:PLÔT 38,141,3:HEXT 


DATA 764251 









FEM 

FE  ACTIOH 

FLOT 8,3,Mh:PLOT 832 STREC CAN PLUT 3,2%,1€ 
IF GHE>4 THEM re I=1T0 GA:FING:MAIT 44: HET 


CET Fé:PLOT 329,8: FORM=STONSSTERS: PLOT #18, M6: FLÔTE 
Cef:P=F-1:iF FÉG THEH 656 

FLOT 18,1. M@:PLOT 18,1.,5TR#CP 2 

FÜRIS=2GATOLASTER-1H: SOUHD 1,1, 1A:HEXT:SOUND j.1.4:HAIT 4f 
GH=A : PLOT 8, 3,16: PLOT 8,3, 87TE$60 GA à 

FÜR #=3 TO 13 STEP à 

mit] 






IF Hé THEN HCC 
IF H3S AND HCig THEN 4° 
IF H29 AND H£13 THEM Hi 
IF H>l2AHD H£1S THEM H£ 
IF He15 THEN HiCiel 

H=S 





A FOR Tel TO 26 


Wal+1 : Ge TINTERHEC 1 TES +1 :G 
LOT #,12, 486 G-15:PLOT #. 
SOUHE 1,6 0441418, 14 






5, MIE Li 1 























ar MAIT H:PLOT #18, Mh:PLOT X,13,MB:SOUHD 1, 1.8:HEXT T 
475 FLOT #4 12,8 MC 15: PLOT #13, AGC HEC +1 4 

454 SOUHE 1,1.H:HEXT & 

434 REM 

SA REM CALCUL GES GAIHS 

519 1F HI Ces AND Hé£eHts: THEM SEE 

Se [F Hi à ANE HZ éz1 THEH SE 


(DEEUT OÙ FIH) 
22 :]F Higiet THEN GAs16 


EE 2 EGAL 
GAS 11-H6E 
FaeP+C5A 
GOTO 





ed THEN FOR I=1 TO 10:FOPJ=6@T020:SOUND 1. 


re) 


GARE 1 1-Hi 
GOTO 554 
ÉEM FIH CL LIEI 

FLOT 1,4,%#:FLOT Zi, lé 

FLOT 3:d4,"PLUS LH SOUS !":PLOT 16,4,58 
GET F$:ELH 
CATA 4£, 

CATA 
CAT 


LES: FEP4+CGA 


:PLOT 1F,4,3 
























CAT 


13. MÈRES 





JB: MHEST JT: 


nas Ce 


cg REN 
az PLOT 2:2, "UM IHSTANT SWF..." 
295 FUF 
l=zA X=IHTC END 


Ed4n IF Ci: 


GATE 
34 CAT 
4 SATA 
SATA 
CAT 
LATE 
CATA 
DATA 





mie fiers in 


COMMENTAIRES : 


gne 25 à 30 : redéfinition des s'arrete 


Pactères 
ne 35 à 90 
ns À$ () 
gne 95 à 320 : 
gne 352 
One 353 à 358 : 


èce Ligne 5000 à 5250 : 


: chargement des dessins : affichages successifs de dessins 


choisis aléatoirement 
dessin du décor 
: bruitage en cas de gain 


introduction de la Ligne 650 à 670 : fin de partie 


DATA pour Ja 


ÿgne 360 à 480 : redéfinition des caractères 


mouvement des 3 


Uleaux Ligne 6000 : DATA pour la couleur des 
ÿne 370 à 430 : choix aléatoire du dessins 
ORIC 1/ATMOS 


MEMORY 


Retrouvez dans un tableau les différentes formes de couleurs 
seulement visibles deux par deux. 
Pour jouer, entrez simplement les coordonnées 
de la case à jouer. 


dessin à afficher lorsque le rouleau 


Ligne 490 à 640 : calcul des gains en 
fonction du nombre de dessins similaires 





“ FIHG 
15 TEST : CLS: GARERBK IHK3 








208320 THEH Sü 
5 HE dé 63: REAC DePOKE I, D'MEAT 


2 » É 17 STEFS:FÜRIS16 TO 36 
à PLOT I CŒ:HEXT 1, 
SA FOR 1214 TO 34 STEPS:FORJIES TO 1€ 
dan FLOT [LL CH:MEXT JT 
119 FOR J=6. TO 15 STEF S':FÜR I=i4 TÙ 85 STEF 3% 
124 PLOT 1,.43:FLOT 1:.H1,3:MEXT 1:41 
154 PLOT 12,4," s £ 4" 
4m FLOT 9,6,"1":PLOT 9,53, "2":PLOT 8,12, MS": PLOT 8, 15, 14 












159 
168 
174 
188 E& 


C=C+1 :D=vALCMIDSC CE, C 

P=CHRRE DCHREE I 2 
HE D+CHRSE L+E 
REPARTITIOUN == 








HR I +1 3 
DHCHEGE L43 0: HET 





Ji TO £ 

£la FOR Isi T0 & 

L'akd rl 

1 1Ed El 

+ THEH 2e 






ESA F=IHTE 








Ligne 440 à 470 : mouvement d’un rouleau 


133 





C'ATH 
A GATH 
A GATA 


à CATH 
DATE 
SA DATA 


LES 


AE EX; 


DATA 
CAT 
CATA 
SATA 
L'ATA 
CATA 
CATA 
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5 CATA DATA 


no 





dessin à afficher lorsque le rouleau 
s'arrete 

Ligne 440 à 470 : mouvement d’un rouleau 
: chargement des dessins : affichages successifs de dessins 
choisis aléatoirement 

Ligne 490 à 640 : calcul des gains en 
fonction du nombre de dessins similaires 
Ligne 650 à 670 : fin de partie 

Ligne 5000 à 5250 : DATA pour Ja 


“redéfinition des 






: dessin du décor 
352 : bruitage en cas de gain 
353 à 358 : introduction de la 


























one 360 à 480 : mouvement des 3 redéfinition des caractères ï 
Uleaux Ligne 6000 : DATA pour Ia couleur des | 
gne 370 à 430 : choix aléatoire du dessins 

OR AMOR | 

Retrouvez dans un tableau les différentes formes de couleurs 
seulement visibles deux par deux. 
Pour jouer, entrez simplement les coordonnées 
de la case à jouer. 
5 FIHS 

do TEXT : AUS PAPER : IE 










468080 THEH 56 
TO 4F963:READ D:FOKE L'D:HEXT 

GE = GRILLE == 

En CHeCHREC 205 à 

La FOR TO 17 STEFZ:FORI=14 TO SG 

En PLOT LOS: MEXT 





f FOR #19 TO 3@ STEPS:FORJES TO 16 
AOn FLOT L.JC#:HEXT Je 1 
119 FOR J=6 TO 15 STEF S:FÜR I=14 TÜ 29 STEF 5 
Mon PLOT 1,.3:PLOT J:+1,3:HEXT 1,1 
Hé PLOT 12,2, 1 me, 5004" 
Han PLOT 9,6,"1":PLOT 9,3:"2":PLOT 9,12, "3":PLOT 5,15,14" 
Mas Cem:C$="S6719218" 
154 FOR 1=91 TO 122 STEP 4 
C=C+1 :D=vALE MIDSC CS, 


EF i+CHREE T 4 bc I+15 






Ci + CHERE LH CHERE I43 1: MEET 
FEPARTITIUH == 
E 2, "LH [HETANT SVP, 


 Sk4 del 
A THEH 22H 




















A TJ in 
no ns 





ai En Fa Te) Pi Ta M oi Po 


Fi eh ii 


DER EIRE ES EN EL] 












= dû 69 Go Gi Gi 
















fa 1 14 
JA 
934 
Se 
El bal 
SAE 
SEE 
SEA 
Sa 
Sig 
S114 
.Si2n 
aa 
a 144 
5158 
5168 
alFt 
2159 
S154 
A2 Ë 
2214 














IF Js2 AND G 
3AË 


408 SOUHD 


a GOT 


1 FORI=SATL 
54 FÜRI=ITOZ 


A CATA 


Ci HT SI HET HET 
FLAT EEE) ï 
EN == DEFHET == 

E=E+i 


FLOT 2,2%4,STR$CEù+" ESSAI :" 






FOR ii TO € 
GET X5: = vALI #6 2 





IF #1 Où kr THEH SE 
PLOT 15,24,48: Gi dix 
GET ré:rewALe ré 









1F Yi OP V4 THEN 328 
FLOT 16:24, Y$:HC ie 








Cats, Aile Ceë THEH FING:FLOT 15,84,"  ":GOTO 596 
1=GE) AND HCL=HiE) THEN FIHG:PLOT 15:44," 








LR à SPC EE LL D D 
FLOT #, ASC I: PLOT # 1 BH C 
FOR I=59 TO 5 STEF-1:SOUHD 1,1, 12: HEXT : SOUHD 
FLOT 15,24," 
HET I 
LE MélieMézi THEH 45 

1,359, 1€ 
WAIT S4:SOUMC 1,1. 
FORI=1TOS: PLAT CL, MT," 5 
FLOT #6 Ie I a41," L 
HET 








1.1.4 








En 
FÜRI=6GETLIE 








: SOUCI , L: 18: HEXT 

STEP-1 : SOUNG 1: 1, 18:NEXT:SQUHD 1,1, 
GE I 2, HC I 328: NEXT 

F=P+1:IF P<8 THEH 274 





SOUHD 1,184,:18:HAIT S@:SOUHD 1,308,12:UAIT SU: SOUND 1,200. 
a HAIT 6@:S0UHD 1,1,8 





Ca ed, "TROUYE EM"+STRHCE 4" ESSAIS 
FEJQUER COM T" 





FLOT 
FLOT 2,26, "WOULEZ-VOUS 
GET RS 

IF R&="H" 
IF R#<>"0" 
FU 


THEH EHL 

THEH ni 
H,1.:2,4:8,16,38,36 
3,36. 48, 44,44 
,14.16.4 
SE. 4,5, 


, 16:19: 
4 nd 17.16, 
ab 48, 16, 48 
Œrsdidalss 





C'ATFI 
CAT 
CAT 
CATA 
CATA 
C'ATA 
DATA 
DATA 
CATA 











4. 4, 4,4, 15:31. 
&, 4. 4, 4, 60,6E 
DATA Sl:rld. 12,12, 14.31.65 
CATA 51,56,2%, 10: 44,28, 62,6 
DATA 16, 
DATA 
CATA 
CAT 
DATA 
CAT 
CATA 63.6 
CATA : 

CATA 
DATA 





2,11.11:4:14 
4,30, 82, 4: M2 
42, ral 15 1 rt 











53,62.64.63,51,14.8 
56.68, 62. 68,36, 


au da dr 3 


6,24,16.16, 16:36 












LL 































CATA 
GATA 
DATA 


OMMENTAIRES : 







Factères 







":G0 
ane 200 à 260 : 
s la grille 
gne 270 à 340 : 
case choisie 





gne 20 à 30 : redéfinition des 


jets, avec leur couleur 
répartition des objets 


saisie et affichage de 


Îgne 350 à 352 : tests d’erreur 


fjàa trouvé 





: 2 
dis les memes coordonnées ou couple 





on en cn Én En 


1 de, Et, di, 5,4 
15,4,1.4,27.2r 
A éd,32,4,38,28, #% 
15:4:3:3,6464.4 
A d4,64,2d, 24.0, 45, 45, 








4 
QUE 


wi 
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.f 











Ligne 355 à 370 
Ligne 390 : 
été trouvé 
Ligne 400 à 440 : les 2 objets sont 


l‘essai suivant 


Ligne 450 à 470 


grille 


teste 


=) bruit, mise à jour du score et de la 


affiche l’objet 


si un couple a déjà 


fgne 50 à 140 : dessin de la grille différents, on les efface et on passe à 
Igne 145 à 180 : mise en variables des 


un couple a été trouvé 


Ligne 475 à 520 : les 8 couples ont été 
trouvés 


: affiche le score et propose 


autre partie 
Ligne 5000 à 5310 


DATA pour 


redéfinition des caractères 


ORIC 1/ATMOS 


MUSIQU'ORIC 


Découvrez de nouvelles possibilités sonores 

et composez vos propres mélodies. 

Utilisez la flèche de droite pour augmenter le volume et 
la touche “1” pour le 
La flèche vers le bas permet de passer directement à 


l'octave supérieure et celle de gauche à l'octave inférieure. 
“Slash” lance l'enregistrement de la note sur laquelle vous 





5 DIM PS6. 
6 FLA 7 
19 CLS:POKE 
Liz FESTORE 
15 H=18:0=3: 
24 PAPER: IHKE 
21 FLOT 
23 PLOT 


B 







Le] 































1.4 
ea PLATE 
£a PFLOT 
23 FLOT 
ZE FÜR Isis 


E; 








DÉS 
45 





47 READ K:T,2:Pc 
SA HEXT 
LEZ DATA 
53 DATA 
154 DATA 
SS FORIS<14 TO 13 








24 PLATE. 1,18: PLAT 


14,17:FLOTS 
5, 18:FLOT 
SéTOdéS2S:RERD C:POKEL.C 
Mu DATA 1:1»:11014,1001,02 


DATA 46:54, 
46 FüRI=1 TO 36 STEF 
M: PE L+1 et: PC 14202 








4.19,28,18,14,32, 
15 15:52: 


22:14:33: 


vous trouvez, “/" vous permet d'écouter 
vos œuvres et “esc” fait le bilan de vos prestations... 


615.1 


5, VOCTAVE : ":FPLOT 14,5, STR#6 0 
2,1:"d4 MUSIQUE dd'":PLOT 13 









4 14, 





Es sé 








15:15 


24,18,52, 


= 
25 
JE s 








12; 










es] 


MAYOLUME" :FLOTS8: 


SG: IF IN=1 THEN 55 


ï 






3e,32,32:. 


8,%2.12:14:99 
13:14:99,21,:18,32 
2n,14,99,27:18,82 





14,24 


,Ed:16.8,5,14,59,29.18,4 


2. "dd MUSIQUE dd” 
2,18:PLOT &,1,19:PLOT 6,8, 19:PLOT 1,2,4:PLOTIL4 





























































C'ATA 
CATA SE 
DATA 
CATA Ë 
CATA 12,13, 






Li 


























ii 


! é Ligne 355 à 370 : affiche l’objet À 
Ligne 390 : teste si un couple à déjà 
lgne 20 à 30 : redéfinition des été trouvé 
iractères ! Ligne 400 à 440 : les 2 objets sont 
(one 50 à 140 : dessin de la grille différents, on les efface et on passe à 
ligne 145 à 180 : mise en variables des l‘essai suivant 


bjets, avec leur couleur Ligne 450 à 470 : un couple a été trouvé 


jgne 200 à 260 : répartition des objets =) bruit, mise à jour du score et de la 
ns la grille grille 

lone 270 à 340 : saisie et affichage de Ligne 475 à 520 : les 8 couples ont été 
case choisie trouvés : affiche le score et propose 


gne 350 à 352 : tests d'erreur : 2 autre partie 


Dis les memes coordonnées ou couple Ligne 5000 à 5310 : DATA pour 
éjàa trouvé redéfinition des caractères 





ORIC 1/ATMOS 


MUSIQU'ORIC 


Découvrez de nouvelles possibilités sonores 
et composez vos propres mélodies. 
Utilisez la flèche de droite pour augmenter le volume et 
la touche “\" pour le diminuer. 

La flèche vers le bas permet de passer directement à 
l'octave supérieure et celle de gauche à l'octave inférieure. 
“Slash” lance l'enregistrement de la note sur laquelle vous 

vous trouvez, “/" vous permet d'écouter 
vos œuvres et “esc” fait le bilan de vos prestations... 









hi 
PAPER: : THE 
PLOT 225, VOCTAVE:":FLOT 19,5,STR#6 0 

PLOT 13,:1:"d4 M LE dd":PLOT 15.2,"dd MUSIQUE dd” 

FPLOTE. 1, 14: PLUT 2,18:FPLOT &,1,19:PLOT 6,8, 19: PLOT 1,8,:6:PLOTI 4 






















4 
5 PLOT 





EH 35 


HEAT 









STONES SS : RE 





5 FOrIs1i TO 36 STEF 
F7 FEAD &,#,2:RT 
A HEXT 
DATA 2,19,28,16,14,99,12,18,%2,13.14,99 
3 DATA 15, 18:08.18.18,32.19,14,99,21:18,:88 


DATA 22,14,99,24,18,99,25,14,99,27. 18,32 
FORI=18 TO 13 













6 [41 Dev: PE I+2 ET 





135 


nu RG de 


al ! FES EU DA tie 





































































ER FLOT &,1:22:PLOTES, I,26 &' DsEc Ii HeEr I+1 2: T=Etl+25 

ra HEXT IF T=A THEH MUSIC 1.4.1.4:HAIT4ñ:GOTO FER 
F5 FOE I=14 TO 15 MUSIC 1.0H,4w 

88 PLOT 16, L,"ec ce ab" nT18,s, STRE Go PLOTIN,S, 
rte as PLAT S,STRSE 0): PLOTIG, 51 

168 HEXT 

118 FOR I=16 TO 15 H=Pit BC Pt1 je ep M4) 

124 FLOTIG,1,"ab ab ab ab ab ab" FLOT #4 ‘ai ui: 

128 MEXT Ê ne 

152 FLOTS.8," BE 43 as Gé Gr" a M 

124 PLOT9,21."0 HW E E T * LL" FETUEH 

135 PLOT 9,23,"00 RE MI FA 50 LA SI" G FEM ---- ENREGISTRE ---- 

140 REM mem GEBUT mm  T<G:FLOT 28 "C HE P E":PLOT ESF 

155 GET HS AS MUSIC 1:4:1.4 

151 IF H£=" " THEH MUSIC 1,4,1,8: 5 PLOT 2,0, STR#L-2% 

152 IF HE=CHRS 27) THEN 994 S:1F L:=990 THEH FRINT"STOP" 

153 " THEH SGA OeEXLæ+t et: FRINTOHESE SG: PEINT: PRINT: PRINT: PRINT :FEIHT 
156 THEH GOSUE Fa S:IF 2#="g" THEN T= 5 : GOTOBZÉ 

















155 THEH H=18: GOTIEGA 38 STEÉF £:SC=SCRME I. 67 
16 THEH Hell: GOT Ci 28) Jul RAA ER 


LE IF NSS"OUTHENH H=l :GOTOZAA 
LES IF HESUU" THEN He3:GOTOE GA 
j THEH H=S:GOTOZGA 
THEH H=6:G 
THEM H 
THEH He&tC 
THEN H=d : GO 
THEN Her: 0 £ 
THEN H=9:G0TO0CEG 
THEH HELS : COTE A 
THEH LEL 3: COTOSSE 
THEH Fi 


















M:PLOT 2:89, 5TR&L-3 0 























REM ---- RESTITUTION = 
LE: FAPERG: INKZ 





SIC 1:4,1:4 

FÜR I=3 TO L STEP 3 

DSEc I: M=EX I+1 3: T=EC I+2) 
PRINT'OCT:"50;" HOTE:";H;" DUREE: "3T 
à GET 24 
















































































SA HEXT 
LE H&=CHRSC 149 THEN O=0+1 : GOSUBSE 4 SOTHT:ERIHT'E EIH 1":PE 
182IF HS=CHRS#C 11) THEN ur nes ES PRINIMENCURE CO/N)"5 CET Ré ï 
184 IF Hé=CHR#C 3) THEM ie à IE Fée“O" THEN 900 à | 
GOTO 154 ES Séries Se 
: MUST 10,H,v G IF Eg="H" THEN 1290 
1 SIC 1:0:m,% 5 FEIHT 
1e) A GÜTO 25 
88 PRIHT:FRIHT : IHPUT'BETOUR AU PROGRAMME COMME 
ui Lite à ALE ES$="H" THEH EHG 
20e HS me THEN 26 5 Eg=NQ" THEN IHS1:CLS :COTORG 
‘ Es 4 CHE : GO E 
2GE MUSIC 1,04 HE : GÛTO GE 
214 GOTO 1584 
SGA REM —--- DCTAYE —--- 
si Fe he COMMENTAIRES : Ligne 0 à 135 : initialisation, décor et | 
Set IF 026 THE redéfinition des caractères 
da PLATE, S, STE O2 Ligne 150 à 190 : saisie des touches 
Sas PLOTIA 5,4 Touches : volume + fort: -} / - fort : Ligne 175 à 180 : modification de 
Sdé MUSIC 1:0.H,% ; l‘octave 
Se RETURH À octave +iflèche vers le bas / Ligne 182 à 184 : modification du volume 
FE NES D: <- Ligne 200 à 210 : joue 1a note et 
(] H els enregistre la note sur laquelle on 5e affiche la main 
D] | Vi trouve : ï Ligne 500 à 550 : gestion de l‘octave 
Fe M: PLOT 32,12, durée de la note enregistrée : croche, Ligne 600 à 450 : gestion du volume 
ä MUSIC 1. ù, HY noire, blanche, bpointée, ronde, Ligne 700 à 780 : joue le morceau 
 FETLIEH O=silence enregistré ! 
ÉMPEM = TES écouter : / à Ligne 800 à 840 : enregistrement d’une : 
1 IF Lie THEH FETUFH efface : la dernière note : j; toutes note À 
5 #5 To L STEP 3 les notes : 2 Ligne 850 à 1020 : affiche les octaves, 
fin et bilan : ESC notes et durée du morceau LE 





ORIC 1/ATMOS 


CARAMBOLAGE 


Au volant de votre bolide, 

parcourez un labyrinthe sans jamais entrer en collision avec 
F0 une autre voiture. 

pour vous diriger, utilisez les quatre touches d'édition. 





5 POÉE 618,14 


14 
12 
15 


IE M<x 
RETURN 


HIS: V=18: V&=" be" : Fe: B=Q: Ce He 

M=19: HS: Des": Gel :Hegepæs" 

RESTURE 

FÜR 1=46856 TO 46887 :RERDC: POKEL, C:MEXT 
8 CLS: PAPERG: IHK3:PING 

PRIHT : PRINT : PRINT 

PLOT 1,:@,7:PLOT 1,1,2 

FLOT 13,0, "CARAMBOLAGE" 

5 PLOT 1,1,2:PLOT 12,1, 

GOTO 198 

IF W#="a" THEN RETURH 
IF HoY AND SCRNE M, M1 32: 

IF MEY AND SCRME M, M41 3632 

RETURN 

IF V#=b" THEN RETURN 

AND SCRHE M1, MX 

IF M># AND SCRHCM-1.H 


THEH HeH-2:RETURH 
THEM HEH#+E : RETLEH 








THEH Malte: RETUEH 
THEH MEME: RETUEH 








ser: = r-U:IF V=9E Lou _ 

Ua: gate IF SORA 44T, VS2SS THEN Ge] : RETUEH 
f=1 : RETUEH 

Det: MEe"aU IF SCRMCK 41 1e THEH WMe-i : RETURH 





a Mz1:FRETURH 


LeAECC 63: IF U=1SBTHEN 34 


| Hefilge "a": IF SCRHEMHIHISZSS THEN Ga-1:RETLUEN 


Gel :RETURH 
Ge: Ub=MC'iIF SCRHENMH+1 12255 THEH H=-1 : RETUEH 
Hal: RETUEH RE d 


GB REM == FPRRCOURS =x 
A PÜKE 253,294 


Des :F=d: Gel: He : CS=CHRSE 285 1: JeS 
FOR I=1 TO J 
FOR #=0 TO D+G :PLOT #F,C$:PLOT #:F+H,CS:HEXT 





FÜR YeF+1 TO F+H:PLOT EG, Cé:PLOT D+G,#, C&:MEËT 














+ Le ED LOU 0 = | 
En en 2 CN a LA 



















































1415 ENPLADE Pi THEH HI=£0 
inc PRINT'UHE AUTRE PARTIE 0-H): 






Ligne 100 à 226 : dessin du parcours 





DaD+2:F=F+E: Gad: HEH-4 MENT 
IF C&="," THEN 190 
D=d:F=5:Ge2S:He)9: CE", 


Ca=" u 











ve 


A IF E=#BL AH 





ner Va +E+1) 








NE E 55 
93 OR S= 100 “THEN 1447 
a A=A:E=G:PLOT #7: 4# 


PLOT MH PS :M=M+0 :H=HHH 
= "0 Me2 THENGOSUEAN 











17 DR S=58 THEH 1800 


A FH=CHRS 
SA GOTO SHA 

A REM =z FIH DE TABLEAU == 
SAP: EAP: EAP 

C=SC+ 108: CPeñ:GOTO 14 








E : PAPER : PLOT #4, UE" 





1425 IF F5 


SaaS DATA 9,51,18,45%,40:19,51.6 
SaiA DATA 45:53:45, 12,12,45, 4: 
Sa2à DATA 9,51,18,63,63,18,51.4 


COMMENTAIRES 





DLigne 0 à 39 : initialisation et 


redéfinition des caractères 
Ligne 40 à 80 : changement de direction 
: voiture du joueur 


Ligne g5à 95 : changement de direction : 


voiture de 1‘ORIC 













Mi led: GOTO 145 

FLOT 12:14, "SCORE: ":PLOT 12,16, "HI-SC:":PLOT 18:16, STRSCHI) 
C$=" MIPLOT 54 14, S:PLOT2#, 1672 

FOE I=5 T0 11:FLAT 17: I:CH:HEXT 
FOR I=18 TO Ed:PLOT 17,1: CS :HEXT 


Bcû FOR I=13 TO 16:PLOT 4,1,CS:PLOT 27: 1:C8:MEXT 
25 k=18:Y=19:PLOT KT, NS 
B2E C=1:H=@:PLOT MH, LU 
Psu REN == DEBUT 
Pan PLAY @:7:21 
San K=PEEKX #20E 
S14 IF K=#AC AND 
29 IF K=#E4 AND 


255 THEN A=S : Et 





F=CP+1:PLOT 18,14, STRRECOHIF CFags4 THE 





5 THEN Me-G:HEH-H:GOSUE 85 
ICEHE M, Ho: PLOT 1, H, US 


GET F$ 

no" AND RS<E"H" THEN FRINTCHESS 11 3: GÛT0 1H£El 
1424 IF F$="H" THEH EHE 

1a4g SC=A:CF=<4:GOTO 14 

AA CATA 45,51: DU 









Ligne 230 à 340 : saisie de la touche 
frappée 

Ligne 345 à 410 : mouvement de la 
voiture du joueur 

Ligne 420 à 450 : mouvement de la 
voiture de 1’ORIC 

Ligne 700 à 720 : fin de tableau 
Ligne 1000 à 1040 : perte et fin de 
partie 














ORIC 1/ATMOS 


ATTENTION FRAGILE 


Grâce à votre panier, bloquez la balle 
qui rebondit de murs en murs 
avant qu'elle ne casse votre précieux verre à pied. 
Utilisez les touches : A pour aller en haut, 
Z pour aller en bas, 
< pour aller à droite, > pour aller à pe 































S melgivesdiAediESG: ME"  " 
5 GelgHeñidel she :Egen 

14 TEXT:CLES: PAPERS: TIMES 

Le FOÉE 618,16 

IF FERA 26 THEH 46 
j FÜR I: 5 SS4s: REC C:POÉE L'C:HEST 

4 Aé="abh" dclibte Dfz="a! 

4 REF sex DECOR +2 

Cake": PUOT 1:93: 4:PLOT 1:26,4 

FOR = TO S2:PLOT I.S,Ch:PLOT 1,26: C$:HEXT 
FLOT 27,14, 08: PLOT ral. CO: FLUUT 





































73 PLAT 19,19, C$:PLOT 23,4, C8 :PLOT 
CS=CHRISC 255 à 
G FOR I=d TO 25:PLOT S,1,C8:FLOT 32,1, C#:NEXT 
à] Css" 11 LL 


130$ 


me 
Es 











415,05 
HS MEAT 
- 184 FOR I=18 TO 1F:PLOT 16,1,C$:PLOT Z21,1,CH:PLOT Itd:1 
4, 17, 0 
185 HEST:PLOT 1,4,F:PLOT 1.4.1 
114 FLOT 16,16, CHRSE 1 4" Pate CHRE 5 
115 PLOT 173145 CHRSE 1 +" hi HCHESLS 
SA PLOT #,%. AS: FLOT #,T+1,E# 
125 PLOT 12,9, "SCORE : "+ESTRSE Lo 
Un FLOT 12,4, "RECORD: "+STRSC HI à 























a 






















34 FENM == JOUEUR 
140 





PSPÉERE #20 





2IF FES6é THEH 366 


166,06: PLOT 22, 24,0% 





:FLOT 11.24 





3% FOR 1=1@ TO 1S9:FLOT 14,71,CH:PLOT 23, 1:C#$:PLOT 1+4 10, CH:PFLOT I+4 


2,C$:PLOT 1 










156 IF F=id3n THEH A=-i 
164 IF F=l4i THEH H=l 
Hra IF Peird THEH E=-1 
"12E =1r4 THEH E=1 


MS: FLAT ES M : 
T4 EHÉ 













ne. Et: A: 2 54 A 






255 L= Lal-FLOT 18, 
218 PLOT &:H: de G=G 
31 S=SCRHCG HIT 
Sa PLAT G.H.Dd 

San GOTO 14% 

dû FEM == GUBE EALLE == 
416 FORI=1AG TO 564 STEP 
454 L=L+1m6 
424 K=1: 
448 PLOT 
LOS RENM 0 
574 REM 


RC L 
Ha=H+bl 















Se 134 





RATE FLAT 








ad FE 
GSA FOR let TO d:PING:UAIT 4@:HEXT: POP 
AE 


2: POF:GOTO ft 2 
Re: Re 

1 = Ûi : RETUEH 

1 FE 

1 KE 

14 

1 

1% 


EH EMD 
1057 IF R$<>"0" THEN 1956 
Anse ANT TRES HI=L 





(1: He: RETURN 
2:1F eg THEH U=-1 





1aro Me : Ge IMTE HD 1 © 
Ars EETLEH 
: 5 Gi: H=IHTÉ EME 12421: IE Mef THEH Wa 





D 


KA 
ex 


ligne 5 à 40 : initialisation et 
Fedéfinition des caractères 

Aigne 50 à 128 : décor 

igne 130 à 230 : saisie des touches et 
Mouvement du panier 

Digne 300 à 350 : mouvement de la balle 
ligne 400 à 440 : le panier a attrapé la 
balle 


THEH GeG-0:HeH-h: GOSUE S#16 


SOUHD 1,1: 1M:HEXT:SOUHD 1,1. 
QT, +1, M6: PLOT G,H,E% 


STACLES CHE PAS ENLEVER LES REM WIDES 4 


ASE EXPLODE :PLOT 7:6."UNE AUTRE PARTIE CO-Ha P":GETRÉ: IF Ege"H" TH 












































Ligne 960 à 2555 : différents 
sous-programmés correspondant aux 
caractères que rencontre la balle 
ex ! 

Ligne 7/0 à 980 : DaniRé 

Ligne 1050 : verre 

Ligne 1050 à 1059 :. perte et fin de 
partie 

Ligne 5000 à 5100 : DATA pour la 
redéfinition des caractères 

















































ORIC 1/ATMOS 29 DATA 

539 CATA 

GARE AUX BULLES sie one 

556 DATA 

Promenez-vous dans l'écran le plus longtemps possible SA DATA 

sans jamais vous faire heurter par une bulle. Sr4 DATA 

Pour vous déplacer, sachez que Se DATA : 

A = haut, Z = bas, > = droïte, < = gauche. ag DATA 

Aa DATA 

614 DATA 

624 CATA 

634 DATA 

S44 DATA 

658 CATA 

és CATA 

Sr GATA 

£99 CATA 

ESS DAT 

FAR CATA 

SW ess: Ask: Be: Beta Fiä CAT 
14 CLS: PAPERMG:INET:PFOKE 618, 14 1 DATA 
11 FOKE #18A4,4:PLOT 18,4,"GARE AUX BULLES!" à CATA 
12 FORI=ATOr : READA, 6, D: POÉE#10GCE+T . 4: FOÉERIOENET À: POKE#1ABG+T CHE 44 CATA 
#T FE CATA 
dd CATA HEC, HF ED, HF. 4 RBE, #31: 1 FéA CATA 
16 CATA #BE, #48, REF. #16, REF, HES.Z 7FG CATA 
15 DATA HEC. H6F,2, REF. #3 d | F8ë DATA 
24 IF FEES 46898312 THEH 158 798 CATA 
34 FOR ledé8sé TO 4ég95S:RERD D:PFOKE J'C:HEET SA CATA 
35 Ae=#FHE 214 CATA 
49 READC D:IF LezSé THEH 164 824 CATA 
59 PORE A:C:A=A+1:GOTO 44 228 DATA 
194 EEM CECOF 248 DATA 
11h EE ed De ed 354 CATA 
115 FEOT :1'PLOT 1,25,1 154 CATA 
124 FOF 126 Ta Gd:FLOT 1,:5,0$:FLOT 1,28, D#:HEX 74 CATA 
134 FOR I=é TO a oi «I: C$:PLOT 54, 1, C#:MEX Se DATA 
149 PLOT F,6,E6:PLOT GE: PLOT F7, Dé: FLOT CE S4 CATA 
154 FLAT F,24,E%:PLOT Lio E$:FLOT F,22,0%: FLO. 33:23, 04 aGa DATA 
168 FOKREMECFA: HE: PORE#EBDES: #ES:POKE ABESI, #65: PO HEDISF à RES a14 DATA 

165 FOREHBEAN, HS: POREHEF 10, HE: POREHEF 23.65: POÉE HEFSU#ES 1HAn BEM 
184 FING:PLOTIS.26, CHR&CTMEUNSCORE :" 1a1a SH 
SA FEM CEBUT 1GE4 PLO 
20S A=-1:EË=E 1426 GET 
214 CALL#FAG : P<FEEKS#EHE 1 1449 IF 
Ce IF PF=l4s THEH Asl:E=:5$="t" 1454 IF 





FLOT 


CAT 
C'ATA 
GATA 
CAT 

- CATA 

DATA 

BATH 


IF Fsi4f THEH Az-1:E=f:E$="a" 
IF FelF4 THEH E=-]:H=6 

IF Fsiré THEH Esi:A=G 

Ha To di AAA °° 


SeSCRME 6 2: 










































































































Ho: et E: A=- A: B=-E 





=1 THEM 1646 
: GOTOE1S 








30,13, 12,20, 34 
13, +: 12, 1:16. 













ligne 35 à 5 
outine mach 
igne 100 à 
igne 210 : 






















Ecie) ,157,192, 16,96 
2% Sue Ent 41 
157: .16,188. és :16 
( e î r:192,15: 

£é, 199, 176,16, 185, 33 
157.1r6:16: SEAL 
165,6, 157, 1! Ë 
56:189.1F6: 

157:1ré6: 16: 

253, 9: 15: 

133.17 16,1 

189,192, 1€ 

13.159,16 

2, 166 1 

241:98.26 

145, 166,1 

EE GE, 

196,15 

G:16: 

2 EL 

12244: 

SLT 

152,15: 

15, 168 

15: rh 

16.14 

15:14 

LL 

24,3 

234 LE 

15.185 

13: 


5 noise 
FERTE 
OT:FORIS=ITUE: 
T 8:34 CHESE 
FE 
F&="H" THEH EH 
Fe 2"0" THEH 18258 


4: initialisation 
0 : redéfinition des 


0 : implantation de la 

ine 

170 : décor 

appel à la routine qui fait 





qu 


mouvements du personnage 


FAPERS : HAITI: PAPERS: MAITIH:HEAT 
SAHUUME AUTRE FRRTIE 








Ligne 280 : celui-ci rentre dans une 


balle 


Ligne 290 : une balle le heurte 


routine met 1 
heurte) 


. {La 


en 1040 si une balle Île 


Ligne 300 : incrémentation du score 


Ligne 450 à 490 : DATA pour la 
redéfinition des caractères 


Ligne 500 à 910 : DATA pour la routine 


de la machine 
Ligne 1000 


: perte et fin de partie D 











ORIC 1/ATMOS 










198 FLOT HI TI," ":PLOT HIDE STEÉ à 







125 IF T=1G THEN PIHG 
AG IF T= THEN COSUE id 


Décrochez le maximum de téléphones avant que le compteur 
-_ n'arrive au chiffre fatidique de 
zéro! 
Utilisez les touches < pour aller à gauche et 
> pour aller à droite. 





‘E 

£=F GIF K=56 HEH 155 

IF F=1 THEH P=ë Et E P= cr 
RD “+1. 

AE P 2: SES Pi: Bet 

Be P 2: MED Fi: Be 





= FE 


126 : LOTO 450 
ns LS ne THEN “els: He 









et Et dt 
HW o& 
TER 










5 FIHG 
14 TEAT: CLS: FAPERA: IHKS 

15 POKE 618,14 

2 1F FEEK 47039 7756 THEH 40 
34 a 1=46 : RED 
+3 ; 





rie 










RATS THEN He 
3,12: MAIT 68: SOUND 
155 

























& FÜR ui 1:11: B:HAIT SS:MEXT 














Lt: ia 1540. 13: ALT 64: SOUNC 1,1: 
G2A KeR+1:FLOT 35,4,6TR#CE à 
IF F£3 THEN RETUEH 

1034 EXPLUCE ñ 
“iddn PLOT 7:6,"0H CHANGE DE STAMDRELISTE:" 
DIGSE PLOT 5,25, "ETES-WOUS VOLONTAIRES 60 
GET F$ 
IF Eg="H" THEH EME 

2 IF Rip "(0" THEH 146 
334 RUH 
A CATHA 
CAT 
A CAT 
DATA 
DATA 
































mis REM =s CECOR 
55 A$s="abl:phetc! 
64 FÜR I=4 TO 1 STEFÉ 

F9 FLOT 1:1:1:PLUOT 1,1+1,1:FLOT 1,1+%:4 

SA PLOT 3,1, AS+CHREC 1: PLOT 3, +1, Ef+CHRSe 55 

99 FLOT 4,1, CHARS 1 +: PLOT Sé, I+1, CHRSE l ES 

LA MEXT:A$= "ee" 

195 PLOT 1,1,2:FPLUT &,1,18:PLOT 1,2,2:FLOT &,2,16 

198 FPLOT 15.1:"TELEFHOHE ! "FLO 154€, "TELEPHAUHE !" 

11H FOR Is£ TO 5 STEP G:RLOT 1,11.4$:PLOT 1.17. A$:PLOT 1,23,A$:MEX 



































. A ; æ 15481 à Êa 26 


FSC 1 De" Lo : EC 1 etat : AS 2 1e" tu" ESC E Jean" 
Cie 1 Mi M: DC 1 2e" ik: Ce 2 M pa" Dé Ze" rs" 
FOR I=6 TO 2S:PLOT 19,1,K$:S0UND 1,1#25,12:MAIT 2@:PLOT 19,1,M# 






Mere + 


id Fi Fi 
ENS 


Fr 
ka 






















2 CATA 
:MEAT CATA 
135 FLOT £,4,"E00RE :":PLOT 27,4, "ERREURS :" GA DATA 1: 
138 PLOT 1.6:5:PLOT 1,257 Are 
ide PLOT 19,83,K&:PIMNG « ; 









24 CATA 
DATA 
A CATA F3 
0154 DATA 22:: 
Sl6a DATA S5: 
5176 DATA : 6 
2159 CATA 
5198 CATA 
DATA Z 
CATA Sé: 


145 YASES: ER 1 

145 FPLOT A6 1 2: FLOT +1,86 1 4 

159 REM == CEEUT == 

155 PLAT 153, TA: HS 

LE VASTAHRA:IF TASIS OR YATEZ THEH BA5-EA 
JF H=1 THEH T=vf-2 

 PLOT 19, AE: JIFH=1THENPLOTIS, A-1, 48: PLOT 18,742, G$:FLOT 13:77 
MS : 

[5] 
















FOR I=i T0 é:T=TÉ Ta: T=T-1 
i IF T6 THEH Z14 








COMMENTAIRES : 


Ligne 20 à 30 : redéfiniton des 
caractères 
Ligne 40 à 48 : 
Ligne 90 à 148 : 
Ligne 155 à 170 : 
l’ascenseur 

Ligne 180 à 210 : décremente les 
compteurs de téléphone et teste si un 
compteur a atteint © 

Ligne 219 : affichage du score 


initialisation 
trace le décor 
mouvement de 


ORIC 1/ATMOS 


Ligne 220 à 310 : saisie des touches, 
mouvement du personnage 


Ligne 400 à 430 : on a touché un tél. de 
droite : test pour savoir lequel 
Ligne 450 à 470 : on a touché un tél. de 


gauche : test pour savoir lequel 

Ligne 480 à 495:: affiche le bonhomme, 
met à jour le compteur du tél. décroché 
Ligne 1000 à 1025 : perte 
Ligne 1030 à 1090 : fin de partie 

Ligne 5000 à 5020 : DATA pour la 
redéfiniton des caractères 














5 H=é 


LE TEATPELS : 


2 PFÜÉE 







El: 


CIDRE OU PINCE ? 


Pour gagner, il vous Feu remplir toutes les bouteilles de 
la chaîne. 
Si vous en ratez une, il vous reste toujours 
la possibilité d'essayer de la récupérer avec la pince. 
Utilisez les touches : 
Z pour ouvrir le robinet et (SPC) pour lancer 
la pince. 


(EE) (@) 1 


FAPERE:IHET 
15 


PURES LR 


& IF PEEKCd 

FOR 1=4685 
I=1 TO 25 
AE= LL a Ta #1 


a FÜR 


5 GE=" 
sg PLOT 
DRERIE" 
SS PLOT 
ÉH Hage 
ra PLOT 
Em PLOT 


Ês 


l: 
TE 
1.:6,4:PLOT Z:6: 


SSéizs THEH 34 

£& TO d4eSés:READ C:PÛEE I: D:MEXT 
pe r+" Me HB= TRE" MeHEXT 
=" et: Fe CENTS [D :C'h= ah" : Et$=" i i nm, Fé=trn" ; tip" 
PLONAMALS:PLOT 12,5 

1.18:FLOT E,2,19:PLOT 13,1, "LA CIDRERIE":PLOT 13: 


4,3:PLOT &:4,"SCORE :" 
14 
"REC 


RC: MHSTRSE FE 1 


Ba, 4, CHE FIHMERFEUR 


"fe" 


£:"LA CI 





LOT At Soals HEXT 
SRÉFNIRANS MEMAMES TT 
Fa"kkER":PLOT. 15 17,08 










FLOT 3,17:4:PLOT 3,13,2:FLOT 17,175 
3, 1" PLOT 2, 1o "I" MEXT 





js er 





! 
1 


Es PLOT 5 4, MS : PLOT ad STRE 
“a IF Ge" " AND Ced THEH Dep : Hg="a": GOT a 
DA 1F Gé-"kb" THEN Géz"a":H="c": GOT 269 
OA LE Gé="at THEN Gée" :HS=Gé: Cet 
Gun IF Gbr" ! THEN CeC+] 
GAS ESGE+ VE: ZHSHS+EE: TET+1 
DNS IF T=6n THEN Web-1@:T=@:IF Wél THEH He 
Pia FLOT %.16.%$:PLOT 3,14.2% 
1 FORL=1TOU : MEAT 
4 KEEKETE 
ÉSS IF Kg="2" THEM GOSUE SA 
Pau IE Ke" " THEN GOSUE 694 
SD SeSCeNC 36. 190: IF Se48 THEH,££E 
255 GOTO 158 
BEA PIHG:UAIT 48:PIHG: MRIIEG: PIHG:UAIT 34:PIHG: HAITAR: ZAF:MAIT 1822 
1 ÊF 
ce HAIT 56 
BA Wey+lilF V=3 THEH 366 






254 GOT) 16 
244 PLAT 3,9, "VOUS ETES RENYOYELE::" 
ds FLOT 34,4, "az" 





14 FLOT 3,11, "ENCORE UN ESSAI COM €" 
al GET RS:IF Ré="H" THEN EHD 
[31 Q" THEM 34 





1 F : THEH RESC 
A4 SC à = : GOTO oi 
Mo REM == REMPL == 

SA SCRNE 15, 15: 597 THEN 354 

“ia FOR I=i TO 44: BOURG 1:J.12:HEXT:S0UND 1.1,R:SC0=SC+14 
ral DES 











1.694,18-WAIT 64:SOUHC À: 1: 
SG:IF SC<4 THEM SC 


ti ? TO 1 14 STEP 

SEA FLOT # “,ES: ALT PA:PLOT #1 Hé: HEXT :f=14 
ÊrE = LNTE RHDE À #14 +19: PLOT #rT2ES 

éS4 FETLUEH 

SOA IF SCRHIK.193c191 THEH Ed 

"où FOR I=64 TO 34:S0OUHC 11.12: HEXT 


dé 15 an T0 €ÿ STEP-1 :SOUHE 1,1, 12:HEXT:SOUMD 1,18 







15 23=M1D8C 
L715 vs 1 1DBC VS LEE DNS EMI VE, Zu 13 















FOR Y=17 TO 14 STEP-1 

PLOT K,Y.E$:PLOT K,%+1,R:PLOT K:Y+2,BS: AIT 28 

FLOT #47, MS: PLOT 4, +1, M: PLOT K, Y+2,H8:MEXT:Y=14 

FOR Iex TO 35:PLOT 1,14,E8:PLOT L,15,R8:PLOT L,16,ER:UAIT 24 
FÜR Jet TO 16:PLOT L:JMB:NEXT 

HEXT I:PLOT 35.15, R$:PLOT 35,16,B$:PLOT X,Y,E# 

RETUFH 
à DATA 3. 
A DATA 48,< 
4 DATA & 

& DATA 
DATA 
DATA 6 
DATA 
DATA 
DATA 
DATA 32 
DATA 63,63 
DATA : 
5129 DATA 1,2, 
DATA 32. 


COMMENTAIRES : 





Et a 


a] 


TT TU TE mi 
ni CS 9 CO = CN a dt 


Let De es LU OS 








- LE 





3 


1 LO 


ï 
A 
ñ 
GFA 
AE 
ASE 
146 
[a] 










Ligne 499 à 530 : remplissage d’une 













Ligne 5 à 145 : initialisations diverses boite lle 
nn tPesE ! Ligne 550 à 570 : une bouteille n’est 
Ligne 150 à 215 : affichage et mouvement pas remplie = 20 points en moins 
des US fie Ligne 599 à 620 : descend la pince 
Étone 220 à 240 : saisie, dela touche Ligne 640 à 680 : remonte la pince vide) 
frappée 4 4 Ligne 700 à 780 : remonte la pince avec 
Ligne 250 : teste si une bouteille se iboute lent ide | 
te Ligne 5000 à 5130 : DATA pour la 
Ligne 260 à 340 : perte redéfinition des caractères 

ORIC 1/ATMOS 


SPACE INVADERS 


Revoilà les fameux vaisseaux ennemis, toujours plus 
agressifs, toujours plus nombreux. 
Dirigez votre laser grâce aux touches Z (gauche) 
et X (droite) 
et faites feu en pressant la barre d'espace. 














ue 
1 PAPERS 






2: PRIMTOHRS 17 25 CHRSCE DC 
293 READC POKER, C 











29,8,70. 40,42, ,34:59:42, 
H,46448s, 149 :3.:.f Éd : É 5% n° 
B=CTOC+T : READC : POKER. D: HEXTE. A: KO T Ode 

Scan: QUeLy:E%= RL CAL 
3: Fls =EL+I : TASTAHI IF FI+I=FUTHENH MUEMU1 


4 DATAS 
Ÿ DATA 
 FORASITOZ : 




















PEIHTCHRSE 27 SPACE TNVADERS 
Ms PLOTES, d, "EOARCS 1 IREM ANSER SU 
LE PLOTI, 4," "4pilDc STRSC MU, 2: d à 
9 PRINT :FRIHT: PRINT : PRINT :FRINT : PRINT : PRINT :FRIHT : PRINT 
G PRINTCHES 
21 PRINTCHES 
PEIHTCHRRE ET MP 
ES PRIHTCHRE ET AP": 
Ba PRINTCHPS np"; CHPÉC 27 VE" 

S PRINTOHRSC 27 2"P"; CHRSC 27 "CG" 
BE FORK=ËTOS : FORL=1T021 
27 PLOTP4L, LO+K, 198-K:MUSICI,K, INTÉL/2M+1 15 

5 HEXTL:HEXTK 

GOTO1 Sd 
HET: IE JS: 

“0 THE 

EU THEH' 

°1THENI O6 

sé [5 FREE G= :) EI AE FA) 

ET 1STOGSTEP-1 :PLOT, B,".":PLOTH +1," ":HEXTE 

12 FLOTTE, B+1," 

lan PLAT Be MEN: CSC LAEMURE 16-89: PLOTH, 8," ": Ge A6 A EACK Il 

141 AÉ=MIDSC GTR F2, r 2: IFSCCHITHENPLOTES, 8, "HI :"4fA$ 

S=GTHEN10 






































MUTHENHEÉH=IE 
+1 :GOTO1SE 
1 :GOTOISE 






















































OFE :"+A8: GOTOI FE 
THEHY=X 
," M:PLOTY 21, 4": He 

248 ÊR AC 3€ 1THENL98 
E: nsu :FRP 













188 E=1+ 





























152 FORAE 1+E 081 : PLOTÉ, A= 10" MePLOT#: A1 AU: HERTA 
dat CES: IF JR 2" "THENES= IS 
dal OBEÉ= "2" THENMUS TIC, S, dB: PLANI 6,4, dMBké LP 1: GOT OLHE 
ete 24, pt: EXPLODE : MAITS@: FUEL 1 : LOT 1: 26, LEFTES, FLE" ip 
THE 
“io MieLY:PLOTI, "x MAMIDEE S TRE MU 2, à 2 
154 TFFUSATHEMPLOT1d, 13, "GAME OVER": HAITES A: GOTOSA 
125 MUSIC, Sd. 6e PLAY, 4, 4BB#i LR 
na COTES 
“aa REM 
210 CLE: He ISSETA-S .AE=STRSCE 
ae4 PLOTIS, 18, "COHGRATULATIONS 
34 PLOTI,12, "YOUVE PESTE D'+A$+" ELYINE SAUCERS" 
é FLUT1: 14, "AND MADE"4STESE EC +" POINTS" 





IFSCYHITHEMHI=SC: PLOTI, 18. "AND BEATEH THE HIGH SCÛRE" 
FLOTIS,26, “PUSH À KES" 

POKEAZOF A: GETRAS : POKE#2DF 9 

CLS: PRINT 

à PRIMTCHRSC à 1: CHR 





2Fp;tp"; CHERE ZE 43H SPACE IMHVACERS 


cru 











M CHRSE à à Ë 

424 PEINT:PRINT:FEIMT: PRINT 

436 FRINT"'EASIC VALUES :" 

446 PEIHT:PEIHTEHRE 27 1; "Pt; "YAMPIRE 

454 PRIHTCHRSE 27 33 "PUNOCTOPUSST 

454 FRIHTCHRKE 3"P"à"TRIDENT 

44 PRINTCHRSE PU MAS 

454 PEIHTCHRSE ET 33 UP"; "DELTA 

+96 PRIHT'BOUBLE HEAD 3 .,..,...., 

260 PRIHTCHESE SF 3 "LYOUR SHIP # ss. LA" 
214 FEIHT:FEIHT:PEINT"'CONTROL : KEYBOARC OHLr" 
224 FRINT:FRINT"-KEY Z FOB LEFT" 

34 FEINT"-ÉEY # FOR. RIGHT" 

239 FRINT"-KEY L FOR LEVEL 

244 PRINT"'-SPACE FOR SHOOTING" 

+3 PLOTI.24, "LEVEL: a" 

228 PRINT :PERIHT:PRINTENRSRE 27 5: "P' 5: CHRSE FMC FLSH SPACE TO 
FBEGIH" 

Sol ézsg:Ly=f 

De EBssz:2E=27+#] 

S9S FORA=45321T04956186TEP4Q : B=6+1 : CÜSR/E : COR L4INTC ES, 1+6$c CO IHTE CO 
43: POKER Cl 

a+ HEXTA:ABSSKETS : IFRS" "THENSS2 

59 IFAE" THENLYEL +1 : POKERADF , 4: Lac LV< 16 ELU: PLAT, Sd, dE: 

SOTOSRE 

68 LyeLy4+1 : 

564 GOT 

238 CLS 

64 FORKSATOS : FORL=1TO21 

614 PLOTS+L, 16+K, 198-K:MUSIC1,K, INTÉL/2 341,15 

624 HEXTL:MHEXTE 








COMMENTAIRES : variables du jeu 

Ligne 12 à 25 : tracé des dessins de 

l’écran 
Ligne 0 à 1 : initialisation de l‘écran Ligne 26 à 28 : musique d‘accompagnement 
Ligne 2 : chargement des caractères Ligne 100 à 110 : test du clavier 
graphiques Ligne 125 à 194 : programme principal 
Ligne 3 à 7 : datas des graphiques Ligne 194 : fin de jeu 
Ligne 9 à 11 : initialisation des Ligne 300 à 550 : présentation du jeu 

‘ 
ORIC 1/ATMOS 





Repeignez votre appartement sans vous faire attraper | 
par de voraces petits fantômes. 
Et dès que votre pot de peinture s'épuise, 
courez en chercher un autre. 
Pour vos déplacements, K = gauche, À = haut, Z = bas et 
L = droite. 


à: A=@ : E=8 : G=û : M=Q : mea 
S:MS="c" 


: PAPERS: IHÉZ 
15 FÛKE 618.184 



































An FLAT Sd: "ef": PLOT 3,2, "ah": FLOT EN efe:PLOT 20:42, "9h" 
5 PLOT 25,8, SCORE: " :‘PLOT 24:9:7 

dé FLOT 2.1:5:PLOT 2,2,5:FLOT 19,2,2:PLOT 19,%€ 

42 FLOT S9,6,"a:":PLOT 33,6,5:PLOT 36,6 5TRSC 4? 
5 
a 


PR 


45 PLOT 7.8, “ATTENTION. “:PLOT 9,2, "PEINTURE" :PLOT 11: 4, "FRAÎCHE," 
M7 IF PEEKCd62S6icld THEH 108 
à FORI=46ES 46436: FEAD C:POHE L,D:HEXT 





52 FOR I=$ TOIS:READ H$:FLOT 38,1,R$:PLOT 37, 1,6:ME#T 
BE C'ATA 14: Fe 15:14: 14,2% 
EE DATA 29,29,9,62, 60, 26,20, 54 
4 DATA 18,5 £ 
DATA 
62 C'ATA 2 
FA DATA 45 
2 DATA 3 
+ CATH 
Fe CATA 1: 
Me DATA SE 



















CE=CHRS 285): DE=" 4" 
PLOT 1,5,1*PLOT le2l à 
FOR 1=2 TO 32:FLOT L,5,08:FLOTI,25,D8 :NEXT 
EUR 1=6 TO 24:PLOT 2, 1:D8:PLOT 32, 1,D#:MENT 
FLAT 22,18," ":FORIS12T014: FLOTSS, L,D8:NEXT 
PLOT 34, 12,4:PLOT 34:13:4 
PLOT 35,12, "ef":FLOT 35,13, "ah" 
158 FOR 1=28 TO Æd:PLOT 25,1,"j":PLOT 36, 1: C8 :NEXT 
164 FLOT #,v.E# 
Bug REM == DEBUT == 
215 K=PEEKE #2DE ) 
15 1F K2=56 THEN 498 
Ê16 Mere 
En IF Kel74 THEN B=-1 
259 IF K=170 THEN Es 
San IF K THEN A1 
Son IF K=142 THEN f=1 
26e PLOT XV: PS:X=#A: Ve Y+B : SESCRNCH, V2 





Fi me @i 





Le 
in 


Ce 9 Lo To re 




























ET E THEH ef: = "6 
Br is T2 
RES OR “145 THEH 36 
Pen IF Sas THEN ET 
Pan IF Eg="a" THEN E$="h" ELSE E#="4 
BOS IF FRA THEH ZAF 
MAG IF E<1 THEH Pé=CHR$iS 1:T= ne 


Già IF R:6 AHD S=22 THEH P<P#1: +1G:PLOT 32,3,STR8020:IF P2543 TH 
EH 354 

Son Aed:B=a:ReR-1:PLOT #,Y.E$ 

569 T=T-1:1F T=4 THEH FLOT 36.H," EHEH+1:T=28 

ra IF “=2 HHD Fil THEN GOSUE 554 

dan IF Miiz THEH 2184 

416 PLOT G,H.Cé:6sge UE 

4 IF : ANG SCRHEG+1.H3€32 THEM Q=1:GOTO 564 

Ann IF Cox AND SCRHCG-1.H3€332 THEN G=-1:GOTO 249 

44 IF He AHD SCRHCG.M#13<232 THEM W=1:G0T0 566 

as IE Hov AND SCRHCG,H-12<232 THEH H=-1 

Sa IF Méz"c" THEN M&="i" ELSE M$="c" 

SDS GeG+0: HeH+U : SSSCRNE Gi H à 

5 ie F7 OF 5738 THEH 966 

DUT SE et THEH G=G-f4:H=H-W 

514 FLOT G.HM$ 




























151 


PAS TROUS VS DEEE RM UNDER 











GOTO 214 

A REM == REMPLISSAGE == 
FIHG:UAIT 4 

A Rs1G8:He2g: Tesh:P#=CS 
a FÜR I=£é TO 24 TEPF -1:S0LHE 1, 
294 PLOT 36, L'CS:HEXT:FING 

594 RETLUEH 











LES, 1H:NAIT 24 













San FEM == PERTE == 

Si IF PéiiCS THEH GeG-G:H=H-H:FLOT G.H,Hé:GOTO Z18 
H11 ESPLODE:HAIT 149 

SE V=v-ic IF V=-ITHEN 915 







915 FLOT 44%, P:PLOT GH, Ciel: vels: Ces 
GOSUE SS4:PLOT 36,6,8TE$&i 43: GOTO 216 
FLOT 1,26, 7: PLATS, 28, "UNE AUTRE FARTIE £Û<H3 k 


He 13: Mel: PLOTH, Ÿ ES 




















Sen CET £$:IF £$="H" THEH EHG 
SES IF 2&s"0" THEN 954 

325 GOTO 324 

359 EUH 






996 FEM == FIH DE TABLEAU == 
EAP: EAP : EAP 
 És£+1GA:PLOT 13, 
3 CUT à 







14, "BOHLS 1668": HAIT 294:F=4 


































COMMENTAIRES : Ligne 280 : monstre =} perte 

Ligne 285 : peinture =} -5 points 
Ligne 2 à 7 : initialisation Ligne 290 à 350 s affichage du score et 
Ligne 30 à 45 : affichage du titre du peintre 
Ligne 47 à 50 : redéfiniton des Ligne 360 à 400 : gestion du stock de 
caractères peinture 
Ligne 60 à 78 : DATA pour les caractères Ligne 410 à 502 : mouvement du monstre 


: trace le décor 
: saisie des touches et 


Ligne 100 à 160 
Ligne 200 à 260 


Ligne 505 : 
peintre, Si 


test de rencontre avec le 
oui =) perte 


calcul des coord. du personnage Ligne 850 à 890 : remplissage du pot de 
Ligne 270 à 285 : on teste le caractère peinture 3 

que Va rencontrer le peintre : : Ligne 700 à 930 : perte et fin de partie 
Ligne 270 : mur => marche arrière Ligne 950 à 960 : fin du tableau 


ATARI 600/800 XL 


ALPHALUCK 


Recomposez le carré magique des lettres 
en remettant ces dernières dans l'ordre alphabétique. 
Pour jouer, pressez simplement 
la touche qui correspond à la lettre choisie. 









5 REM 
6 REM ———— —ALPHALUCR = 
7 REM 








10 
15 
16 
20 
30 
40 





DIM A$(14),B$(1),C8C1),DSC1),E8C1) 
OPEN #1,4,0,"K:" 

C=0 

A$="ABCDEFGHLJKLMN" 

PRINT ALPHALUCK 

PRINT REMETTEZ TOUTES LES LETTRES DANS 





L'ORDRE 












